home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aak.d64
/
seq reader
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
44 lines
2 POKE53281,6:POKE53280,6:POKE646,1:PRINTCHR$(14)
4 CLR:R$=CHR$(13):PRINT"[147][208]LEASE ENTER FILE NAME":PRINT
5 INPUTB$
10 PRINT"[147][217]OUR OPTIONS:"R$;R$;R$" <[211]>CREEN <[208]>RINTER <?>[200]ELP <[209]>UIT"
25 GETG$:IFG$=""THEN25
27 IFG$="Q"THEN1140
30 IFG$="S"GOTO60
33 IFG$="?"THEN1000
40 IFG$<>"P"THEN25
50 OPEN1,4,7:Q=1
60 OPEN5,8,5,B$+",S,R":GOSUB500
62 PRINT"[147] [208]RESS ANY KEY TO PAUSE, [208]RESS AGAIN TO"
65 PRINT" CONTINUE '[209]' ENDS PROGRAM"R$
100 GET#5,F$
110 IFST=0THEN130
120 IFST=64THEN300
130 IFQ<>1THENPRINTF$;:GOTO136
135 PRINT#1,F$;
136 GETA$
137 IFA$<>""THENGOSUB199
140 GOTO100
199 IFA$="Q"THEN1100
200 GETA$:IFA$=""THEN200
205 IFA$="Q"THEN1100
210 RETURN
300 GOTO1100
500 CLOSE15:OPEN15,8,15:INPUT#15,D,E$,F,G
510 IFD>0THENPRINT"[212]HERE IS A FILE ACCESS PROBLEM:"R$;D;E$:CLOSE15:GOTO1100
520 RETURN
1000 PRINT"[147][212]HIS PROGRAM IS A DISK FILE READ PROGRAM.[201]T WILL READ A";
1010 PRINT"NY SEQUENTIAL[146] FILE ON ANYDISK FORMATTED FOR THE [195]-64."
1020 PRINTR$"[212]O USE, SIMPLY TYPE IN THE NAME OF THE"R$"FILE YOU WISH TO SEE. [212]HEN";
1030 PRINT" CHOOSE"R$"WHETHER YOU WANT THE FILE SENT TO THE"R$"PRINTER OR SCREEN."
1040 PRINTR$R$"[215]HILE THE FILE IS BEING SHOWN, YOU MAY"R$"PRESS ANY KEY (EXCEPT '[209]";
1050 PRINT"') TO FREEZE THEDISPLAY (OR PRINTER)."R$"[208]RESSING '[209]' WILL END THE PR";
1060 PRINT"OGRAM."
1070 PRINT" [208]RESS ANY KEY TO CONTINUE[146]"
1080 GETA$:IFA$=""THEN1080
1090 GOTO10
1100 Q=0:CLOSE1:CLOSE5:PRINTR$"[196]O YOU WISH TO READ ANOTHER FILE (Y/N)?"
1110 GETA$:IFA$=""THEN1110
1120 IFA$="Y"THENPRINTCHR$(147):B$="":GOTO4
1140 PRINTCHR$(142):PRINT"[147] BYE":END